﻿'
' Boogaloo® - http://www.mindfly.com
' Copyright (c) 2008-2009
' by Mindfly, Inc.
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
' of the Software.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
' INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
' SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
' WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
' THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Imports System.IO
Imports System.Net

Imports Boogaloo.Base

Namespace Ping

    Public Class Trackback

        Public Shared Function Send(ByVal message As TrackbackMessage) As Boolean

            If Not CoreSettings.APIs("trackback").expose Then Exit Function
            If message Is Nothing Then Throw New ArgumentNullException("message")


            Dim req As HttpWebRequest = WebRequest.Create(message.url_notify_trackback)
            req.Credentials = CredentialCache.DefaultNetworkCredentials
            req.Method = "POST"
            req.ContentLength = message.ToString().Length
            req.ContentType = "application/x-www-form-urlencoded"
            req.KeepAlive = False
            req.Timeout = 10000

            Using sw As StreamWriter = New StreamWriter(req.GetRequestStream())
                sw.Write(message.ToString)
            End Using

            Dim result As Boolean = False

            Dim resp As HttpWebResponse = Nothing

            Try

                resp = req.GetResponse()
                Dim answer As String = String.Empty

                Using sr As StreamReader = New StreamReader(resp.GetResponseStream())
                    answer = sr.ReadToEnd()
                End Using

                If resp.StatusCode = HttpStatusCode.OK Then

                    If answer.Contains("<error>0</error>") Then
                        result = True
                    End If
                    If CoreSettings.EnableLogging Then EventLogger.Write(answer, "Ping.TrackBack")
                End If

            Catch wex As WebException
                If CoreSettings.EnableLogging Then EventLogger.Write(wex.ToString, "Ping.TrackBack", True)
                result = False
            End Try

            Return result

        End Function

    End Class


End Namespace